home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / editor / edt10.lha / Beispiele / Oberon / Deutsch / UpdateHeader_D.edt < prev    next >
Text File  |  1994-08-19  |  688b  |  38 lines
  1. /* -- Edt: update header to current date, time and increment the version number -- */
  2. /* format: (* .info: dd/mm/yy, hh:mm:ss, version <number> *) */
  3. OPTIONS RESULTS
  4.  
  5. 'Get POSITION'
  6. p0=RESULT
  7.  
  8. /* -- edit -- */
  9.  
  10. 'DisplayOff'
  11.  
  12. 'Set POSITION' 0
  13. 'Find NEXT "(* .info: "'
  14. 'Get POSITION'
  15.  
  16. IF RESULT > 0 THEN DO
  17.   'LinkChanges'
  18.   'Right' 10  /* date */
  19.   'Delete' 8  /* dd/mm/yy */
  20.   'Insert' DATE(European)
  21.   'Right' 2   /* time */
  22.   'Delete' 8  /* hh:mm:ss */
  23.   'Insert' TIME()
  24.   'Right' 10  /* version */
  25.   'Get POSITION'
  26.   p=RESULT
  27.   'Read WORD'
  28.   ver=RESULT+1
  29.   'Set POSITION' p
  30.   'Delete WORD'
  31.   'Insert' ver
  32.   'title' "Version:" ver
  33.   'LinkChangesDone'
  34. END
  35.  
  36. 'Set POSITION' p0
  37.  
  38. 'DisplayOn'